home *** CD-ROM | disk | FTP | other *** search
/ CD Classic 39 / CD CLASSIC #39 (1998).iso / EMPRESA / FACTPLUS / DISCO6 / ALBARAN.HT_ / ALBARAN.bin
Text File  |  1997-11-14  |  2KB  |  70 lines
  1. <HTML>
  2. <TITLE><<TituloPagina()>></TITLE>
  3. <HEAD>
  4. <META HTTP-EQUIV="Expires" CONTENT="Mon, 06 Jan 1990 00:00:01 GMT">
  5. </HEAD>
  6. <SCRIPT>
  7.  
  8. var nFilas
  9. var aPrecios
  10.  
  11. <<Java_Array()>>
  12. <<Java_Chr()>>
  13. <<Java_Str()>>
  14. <<Java_Trim()>>
  15. <<Java_TrForm()>>
  16. <<Java_VerArticulo()>>
  17.  
  18. function Recalcula() // Recalcula los valores
  19. {
  20.    var n, nTotal = 0, nLinea = 0, nUds = 0, nUds2 = ""
  21.    for( n = 1; n <= nFilas; n++ )
  22.    {
  23.       nUds2  = eval( "document.PEDIDO.UNIDAD" + Str( n ) + ".value" )
  24.       nUds   = parseInt( nUds2 )
  25.       nLinea = aPrecios[ n ] * nUds
  26.       nTotal += nLinea
  27.       eval( "document.PEDIDO.TOTAL" + Str( n ) + ".value=" + '"' + Transform( Str( nLinea ) ) + '"' )
  28.       eval( "document.PEDIDO.UNIDAD" + Str( n ) + ".value=" + '"' + Str( nUds ) + '"' )
  29.     }
  30.    document.PEDIDO.GTOTAL.value = Transform( Str( nTotal ) )
  31. }
  32.  
  33. function GrabaPedido()
  34. {
  35.     <<PedidoACookie()>>
  36.     location.href = "saveped.htm"
  37.  
  38. }
  39. </SCRIPT>
  40. <BODY BGCOLOR="#FFFFFF">
  41. <CENTER>
  42.    <TABLE VALING="TOP" >
  43.       <TR>
  44.          <TD VALING="top">
  45.             <CENTER>
  46.                << LOGO() >><br>
  47.                <H3><FONT COLOR="#000000"><<CartaNomEmp( Parameters )>></FONT></H3>
  48.                <FONT FACE="ARIAL" SIZE="1" COLOR="#111111"><<Direccion( Parameters )>></FONT>
  49.             </CENTER>
  50.           </TD>
  51.         <TD WIDTH="350" VALING="top">
  52.         </TD>
  53.         <TD><P><BR><BR><BR><BR><BR><BR><FONT SIZE="2" COLOR="#000080"><<Cliente()>></FONT></P>
  54.             <BR><FONT SIZE="2"><B>Fecha:<<Fecha()>></B></FONT>
  55.         </TD>
  56.       </TR>
  57.    </TABLE>
  58. </CENTER>
  59. <BR>
  60. <CENTER><H2>Solicitud de Pedido</H2></CENTER>
  61. <FORM NAME="PEDIDO">
  62. <<CartaAlbaran( "#000080", "#FFFFFF", "#99ccff", "#000000", "#ccffff", "#000000", "#000090", "#AFFFFF")>>
  63. </FORM>
  64. <BR><BR>
  65. <CENTER><H2>Forma de Pago: </H2><H3><<FormaPago()>></H3></CENTER>
  66. <SCRIPT>
  67. alert( 'Ahora podrß variar las unidades pedidas de cada artφculo. Cuando finalize pulse ENVIAR para enviar el pedido. Si desea obtener una copia impresa de este pedido, seleccione Imprimir en el men· de su navegador')
  68. </SCRIPT>
  69. </BODY>
  70. </HTML>